home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
oriel.arc
/
INTRO.ORL
< prev
next >
Wrap
Text File
|
1991-07-31
|
2KB
|
54 lines
{-------------------------INTRO.ORL----------------------------------
This program puts up a series of screens that explain some of
Oriel's basic features.
-------------------------------------------------------------------}
{Maximize the window and display caption}
SetWindow(MAXIMIZE)
UseCaption("Introduction to Oriel")
{Inialize variable}
Set DelayFactor=2500
{Draw the background}
UseBackground(OPAQUE,0,255,0) {Green background}
DrawBackground
{Display first introductory screen and pause}
UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(25,10,"Welcome to")
UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
DrawText(80,25,"Oriel")
DrawBitmap(120,27,"ORIELIC2.BMP")
WaitInput(1500)
UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(25,50,"the graphics-based batch language")
DrawText(25,65,"for Microsoft Windows 3.0.")
WaitInput(DelayFactor)
{Display second introductory screen and pause}
DrawBackground
UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
DrawText(80,5,"Oriel")
DrawBitmap(120,7,"ORIELIC2.BMP")
UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(17,25,"reads the commands contained in a plain")
DrawText(17,40,"ASCII text file, like this one created by")
DrawText(17,55,"Microsoft Windows Notepad...")
DrawBitmap(8,70,"NOTEPAD.BMP")
WaitInput(DelayFactor)
{ Display third introductory screen }
DrawBackground
DrawText(17,12,"In many cases,")
UseFont("Roman",0,20,BOLD,NOITALIC,NOUNDERLINE,255,0,0)
DrawText(92,5,"Oriel")
DrawBitmap(132,7,"ORIELIC2.BMP")
UseFont("Tms Rmn",0,12,BOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(17,27, "gives you direct access to the Windows")
DrawText(17,42,"GDI (Graphics Device Interface).")
WaitInput(1000)
DrawText(17,67,"To illustrate the power of Oriel, we")
DrawText(17,82,"invite you to run a few of our sample")
DrawText(17,97,"programs...")
WaitInput(4000)